home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / comm / comm2 / dcn_fi40.lha / dCN!FI40.lzx / dCN!FileID_v4.o / Install dCN!FileID v4.o next >
Text File  |  2010-01-17  |  12KB  |  223 lines
  1. ;dCN!FileID v4.o Installer Utility
  2. ;(c) 1997 by sCANDiC (dCN-/F·dEZiGN)
  3.  
  4. ;$VER: dCN!FileID Install o.4 (02.01.97)
  5.  
  6. (set @default-dest "FAME:Doors/dCN!FileID")
  7.  
  8. (welcome #welcometext)
  9.  
  10.  
  11. (if (= @language "deutsch")
  12.   (
  13.    (set #welcometext     "Willkommen zum Installationsprogramm für\n\n")
  14.    (set #welcomedesc     "Mit diesem Programm läßt sich die Installation von dCN!FileID sehr einfach durchführen. Alle Dateien werden installiert und evtl. Änderungen an den Systemdateien vorgenommen.")
  15.    (set #wrongversion    "Leider ist ihr AmigaOS© veraltet!\n\nSie benötigen mindestens AmigaOS 2.04 (v37).")
  16.    (set #copyinfotext    "Eine komplette Installation des FAME Mailbox System ist notwendig für die Installation dieses Programmes.")
  17.    (set #askmakedirtext  "Lege Verzeichnisse FAME:Doors/dCN!FileID & FAME:Doors/dCN!FileID/Config an.")
  18.    (set #nofameinstalled "Sie haben das FAME Mailboy System nicht oder nicht vollständig installiert!\nDie Installation wird abgebrochen.")
  19.    (set #copyfidlib      "Installation von FileID.library")
  20.    (set #copyixelib      "Installation von ixemul.library")
  21.    (set #copyconfigfiles "Kopiere die benötigten Konfigurationsfiles nach FAME:Doors/dCN!FileID/Config/")
  22.    (set #addbinaries     "Kopiere nun die Zusatzprogramme in das C: Assign!\n\nWenn die Programme schon vorhanden sind, werden diese umbenannt und jeweils ein \"_old\" angehangen!\n\nEs ist besonders wichtig das die Programmversionen benutzt werden, die diesem Paket beiligen um die volle Funktion von dCN!FileID zu gewähren.")
  23.    (set #fileexists      "Die Datei \"%s\" existiert schon im C: Verzeichnis.\n\nSoll sie überschrieben werden oder soll sie in \"%s.old\" umbenannt werden?")
  24.    (set #overwrite       "Überschreiben")
  25.    (set #next            "nächstes")
  26.    (set #rename          "Umbenennen")
  27.    (set #syscmdexists    "Das SYSCMD \"%s\" existiert bereits.\n\nWollen Sie es trotzdem überschreiben oder es mit \"%s\" versuchen?")
  28.    (set #askprocessor    "Über welchen Prozessor verfügt Ihr Amiga?")
  29.    (set #copycommands    "Kopiere nun die benötigten BBSCmd und SYSCmd")
  30.    (set #000processormsg "Kopiere die 68000 Versionen der Programme.")
  31.    (set #020processormsg "Kopiere die 68020 Versionen der Programme.")
  32.    (set #040processormsg "Kopiere die 68040 Versionen der Programme.")
  33.    (set #060processormsg "Kopiere die 68060 Versionen der Programme.")
  34.   )
  35.  
  36.   (
  37.    (set #welcometext     "Welcome to the Installation utilitty for\n\n")
  38.    (set #welcomedesc     "The installation of this program by using this program is really easy. It will copy all files to the right places an also replaces the needed systemfiles.")
  39.    (set #wrongversion    "Sorry! Your OS is too old!\n\nYou have to use a minimum of OS2.04 (v36).")
  40.    (set #copyinfotext    "This tool needs a complete FAME installation!.")
  41.    (set #askmakedirtext  "Creating directories FAME:Doors/dCN!FileID & FAME:Doors/dCN!FileID/Config.")
  42.    (set #nofameinstalled "There is no complete FAME installation!!\nThe installation aborts!.")
  43.    (set #copyfidlib      "Installation of FileID.library")
  44.    (set #copyixelib      "Installation of ixemul.library")
  45.    (set #copyconfigfiles "Copy needed Configfiles to FAME:Doors/dCN!FileID/Config/")
  46.    (set #addbinaries     "Copy needed programsto the C: Assign!\n\nIf a program allready exists it will be renamed woth the extension \"_old\" \n\nFor the complete functions of dCN!FileID it`s really recomment to use this versions of the programs!.")
  47.    (set #fileexists      "The File \"%s\" exists allready in the C: Assign!\n\nShould it be overwritten or renamed to \"%s.old\" ?")
  48.    (set #overwrite       "overwrite")
  49.    (set #next            "next")
  50.    (set #rename          "rename")
  51.    (set #syscmdexists    "The SYSCMD \"%s\" already exists.\n\nWould you like to overwrite it or would you like to try installing it as \"%s\"?")
  52.    (set #askprocessor    "Wich CPU Type do you have?")
  53.    (set #copycommands    "About to copy the required BBSCmd and SYSCmd")
  54.    (set #000processormsg "About to copy the 68000 versions of the applications.")
  55.    (set #020processormsg "About to copy the 68020 versions of the applications.")
  56.    (set #040processormsg "About to copy the 68040 versions of the applications.")
  57.    (set #060processormsg "About to copy the 68060 versions of the applications.")
  58.   )
  59. )
  60.  
  61.  
  62. (message #welcomedesc)
  63.  
  64. (set #osversion (/ (getversion "exec.library" (resident)) 65536 ))
  65. (if (< #osversion 36 )
  66.   (exit #wrongosversion (quiet))
  67. )
  68. (complete 0)
  69. (if (not (exists "FAME:Doors/"))
  70.  
  71.  (
  72.   (abort #nofameinstalled)
  73.  )
  74.  
  75. )
  76.  
  77.  
  78. (set #processortype (
  79. askchoice (help @askchoice-help) (default 1) (prompt #askprocessor) (choices "68000" "68020/30" "68040" "68060" )))
  80.  
  81.  
  82.  
  83. (copylib (source "Data/Libs/FileID.library") (dest "Libs:") (confirm) (prompt #copyfidlib) (help @copylib-help))
  84. (copylib (source "Data/Libs/ixemul.library") (dest "Libs:") (confirm) (prompt #copyixelib) (help @copylib-help))
  85.  
  86. (complete 10)
  87. (message #askmakedirtext)
  88. (makedir "FAME:Doors/dCN!FileID" (infos))
  89. (makedir "FAME:Doors/dCN!FileID/Docs")
  90. (makedir "FAME:Doors/dCN!FileID/Config")
  91. (makedir "FAME:Doors/dCN!FileID/Logos")
  92.  
  93.    (message #copyconfigfiles)
  94.  
  95.    (copyfiles (source "Data/Doors/config/dCN!FileID.STRIP") (dest "FAME:Doors/dCN!FileID/Config/"))
  96.    (copyfiles (source "Data/Doors/config/dCN!FileID.WSTRIP") (dest "FAME:Doors/dCN!FileID/Config/"))
  97.    (copyfiles (source "Data/doors/config/dCN!FileID.cfg1") (dest "FAME:Doors/dCN!FileID/Config/"))
  98.    (copyfiles (source "Data/doors/config/dCN!FileID.cfg2") (dest "FAME:Doors/dCN!FileID/Config/"))
  99.    (copyfiles (source "Data/doors/config/dCN!FileID.cfg3") (dest "FAME:Doors/dCN!FileID/Config/"))
  100.    (copyfiles (source "Data/doors/config/dCN!FileID.cfg4") (dest "FAME:Doors/dCN!FileID/Config/"))
  101.    (copyfiles (source "Data/doors/config/dCN!FileID.cfg5") (dest "FAME:Doors/dCN!FileID/Config/"))
  102.    (copyfiles (source "Data/doors/config/dCN!FileID.cfg6") (dest "FAME:Doors/dCN!FileID/Config/"))
  103.    (copyfiles (source "Data/doors/config/dCN!FileID.cfg7") (dest "FAME:Doors/dCN!FileID/Config/"))
  104.    (copyfiles (source "Data/doors/config/dCN!FileID.cfg8") (dest "FAME:Doors/dCN!FileID/Config/"))
  105.    (copyfiles (source "Data/Doors/dCN!FileID.Prefs.info") (dest "FAME:Doors/dCN!FileID/"))
  106.    (copyfiles (source "Data/Doors/dCN!FileID.EXE.info") (dest "FAME:FileCheckers/FileIdent/"))
  107.    (copyfiles (source "Data/doors/Logos") (dest "FAME:Doors/dCN!FileID/Logos") (all))
  108.    (copyfiles (source "Data/Docs/dCN!FileID.guide") (dest "FAME:Doors/dCN!FileID/Docs/"))
  109.    (copyfiles (source "Data/Docs/dCN!FileID.guide.info") (dest "FAME:Doors/dCN!FileID/Docs/"))
  110.  
  111.    (message #copycommands)
  112.    
  113.    (copyfiles (source "Data/Settings/bbscmd/SENT") (dest "FAME:Settings/Doors/BBSCmd/"))
  114.    (copyfiles (source "Data/Settings/bbscmd/STRIP") (dest "FAME:Settings/Doors/BBSCmd/"))
  115.    (copyfiles (source "Data/Settings/bbscmd/STUPID") (dest "FAME:Settings/Doors/BBSCmd/"))
  116.    (copyfiles (source "Data/Settings/bbscmd/U") (dest "FAME:Settings/Doors/BBSCmd/"))
  117.  
  118.  
  119. (foreach "Data/Settings/SYSCMD" "#?" (
  120.  (
  121.     (set #syscmddestdir "FAME:Settings/Doors/SYSCmd")
  122.     (set #num 0)
  123.     (set #finished 0)
  124.     (set #filename (tackon #syscmddestdir @each-name))
  125.     (set #file #filename)
  126.     (while (and (not #finished) (exists #file))
  127.       (
  128.         (if (askbool (default 1) (prompt (#syscmdexists (fileonly #file) (cat (fileonly #filename) (+ #num 1)))) (choices #overwrite #next) (help @askbool-help))
  129.           (
  130.             (set #finished 1)
  131.           )
  132.  
  133.           (
  134.             (set #num (+ #num 1))
  135.             (set #file (cat #filename #num))
  136.           )
  137.         )
  138.       )
  139.     )
  140.   )
  141. ))
  142.  
  143.    
  144. (complete 20)
  145.  
  146.  (message #addbinaries)
  147.  
  148.   (foreach "Data/c" "#?"    
  149.     (
  150.     (if (exists (cat "C:" (fileonly @each-name)))
  151.        (if (askbool (help @askbool-help) (prompt (#fileexists (fileonly @each-name) (fileonly @each-name))) (choices #overwrite #rename))
  152.          (
  153.            (copyfiles (source (cat "Data/c/" @each-name)) (dest "C:"))
  154.          )
  155.  
  156.          (
  157.            (delete (cat "C:" (fileonly @each-name) "_old"))
  158.            (rename (cat "C:" (fileonly @each-name)) (cat "C:" (fileonly @each-name) "_old"))
  159.            (copyfiles (source (cat "Data/c/" @each-name)) (dest "C:"))
  160.          )
  161.        )
  162.      )  
  163.     )
  164.   )
  165.  
  166.  
  167.  
  168.  
  169.  
  170.   (if (= #processortype 3)
  171.      (
  172.      (message #060processormsg)
  173.  
  174.      (copyfiles (source "Data/Doors/dCN!FileID.EXE.060") (dest "FAME:FileCheckers/FILEIDENT/") (newname "dCN!FileID.EXE"))
  175.      (copyfiles (source "Data/Doors/dCN!FileID.FIM.060") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!FileID.FIM"))
  176.      (copyfiles (source "Data/Doors/dCN!FileID.Prefs.060") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!FileID.Prefs"))
  177.      (copyfiles (source "Data/Doors/dCN!SENT.FIM.060") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!Sent.FIM"))
  178.      (copyfiles (source "Data/Doors/dCN!STRIP.FIM.060") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!Strip.FIM"))
  179.      (copyfiles (source "Data/Doors/dCN!UL-Proc.FIM.060") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!UL-Proc.FIM"))
  180.      (copyfiles (source "Data/Doors/dCN!BYE.FIM.060") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!Bye.FIM"))
  181.      ))
  182.  
  183.   (if (= #processortype 2)
  184.      (
  185.      (message #040processormsg)
  186.  
  187.      (copyfiles (source "Data/Doors/dCN!FileID.EXE.040") (dest "FAME:FileCheckers/FILEIDENT/") (newname "dCN!FileID.EXE"))
  188.      (copyfiles (source "Data/Doors/dCN!FileID.FIM.040") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!FileID.FIM"))
  189.      (copyfiles (source "Data/Doors/dCN!FileID.Prefs.040") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!FileID.Prefs"))
  190.      (copyfiles (source "Data/Doors/dCN!SENT.FIM.040") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!Sent.FIM"))
  191.      (copyfiles (source "Data/Doors/dCN!STRIP.FIM.040") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!Strip.FIM"))
  192.      (copyfiles (source "Data/Doors/dCN!UL-Proc.FIM.040") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!UL-Proc.FIM"))
  193.      (copyfiles (source "Data/Doors/dCN!BYE.FIM.040") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!Bye.FIM"))
  194.      ))
  195.  
  196.   (if (= #processortype 1)
  197.      (
  198.      (message #020processormsg)
  199.  
  200.      (copyfiles (source "Data/Doors/dCN!FileID.EXE.020") (dest "FAME:FileCheckers/FILEIDENT/") (newname "dCN!FileID.EXE"))
  201.      (copyfiles (source "Data/Doors/dCN!FileID.FIM.020") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!FileID.FIM"))
  202.      (copyfiles (source "Data/Doors/dCN!FileID.Prefs.020") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!FileID.Prefs"))
  203.      (copyfiles (source "Data/Doors/dCN!SENT.FIM.020") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!Sent.FIM"))
  204.      (copyfiles (source "Data/Doors/dCN!STRIP.FIM.020") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!Strip.FIM"))
  205.      (copyfiles (source "Data/Doors/dCN!UL-Proc.FIM.020") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!UL-Proc.FIM"))
  206.      (copyfiles (source "Data/Doors/dCN!BYE.FIM.020") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!Bye.FIM"))
  207.      ))
  208.  
  209.   (if (= #processortype 0)
  210.      (
  211.      (message #000processormsg)
  212.  
  213.      (copyfiles (source "Data/Doors/dCN!FileID.EXE.000") (dest "FAME:FileCheckers/FILEIDENT/") (newname "dCN!FileID.EXE"))
  214.      (copyfiles (source "Data/Doors/dCN!FileID.FIM.000") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!FileID.FIM"))
  215.      (copyfiles (source "Data/Doors/dCN!FileID.Prefs.000") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!FileID.Prefs"))
  216.      (copyfiles (source "Data/Doors/dCN!SENT.FIM.000") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!Sent.FIM"))
  217.      (copyfiles (source "Data/Doors/dCN!STRIP.FIM.000") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!Strip.FIM"))
  218.      (copyfiles (source "Data/Doors/dCN!UL-Proc.FIM.000") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!UL-Proc.FIM"))
  219.      (copyfiles (source "Data/Doors/dCN!BYE.FIM.000") (dest "FAME:Doors/dCN!FileID/") (newname "dCN!Bye.FIM"))
  220.      ))
  221.  
  222. (complete 100)
  223.